home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byteibm.arc / FRIED.ARC / CB4.ASM < prev    next >
Encoding:
Assembly Source File  |  1985-07-12  |  789 b   |  59 lines
  1. NAME    CB4
  2.  
  3. ; Clock bound -- 4K byte block moves
  4.  
  5. ; Assembly language subroutine source for PI program.
  6. ; Provided to Byte Magazine by:
  7.  
  8. ; MicroWay, Inc.
  9. ; PO Box 79
  10. ; Kingston MA 02364
  11.  
  12. ; (617) 746-7341
  13.  
  14. ; Copyright (C) MicroWay, Inc., 1986.
  15.  
  16. PUBLIC    CB4
  17.  
  18. DGROUP    GROUP    COMMON
  19.  
  20. COMMON    SEGMENT    PARA COMMON 'BLANK'
  21.  
  22. _DSRC    DW    10240 DUP (?)
  23. _DDEST    DW    10240 DUP (?)
  24. SPC$1_    DD    1.0
  25. SPC$2_    DD    2.0
  26. SPC$3_    DD    3.0
  27. SV$A    DD    0.0
  28. SV$B    DD    ?
  29.  
  30. COMMON    ENDS
  31.  
  32. CODE    SEGMENT    WORD PUBLIC 'CODE'
  33.  
  34. ASSUME    CS:CODE, DS:DGROUP
  35.  
  36. CB4    PROC    FAR
  37.  
  38.     MOV    CX,38
  39. INNER:
  40. ; Start of test code
  41.     PUSH    CX
  42.     MOV    SI,OFFSET DGROUP:_DSRC
  43.     MOV    DI,OFFSET DGROUP:_DDEST
  44.     MOV    CX,4096
  45.     REP    MOVSB
  46.     POP    CX
  47. ; End of test code
  48.  
  49.     LOOP    $INNER
  50.     RET
  51.  
  52. $INNER:    JMP    INNER
  53.  
  54. CB4    ENDP
  55.  
  56. CODE    ENDS
  57.  
  58.     END
  59.